/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_11 / msgraphics / m_scan_vga

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 12 f4 20 3e 20 | 4d 2d 53 63 61 6e 2f 56 |..... > |M-Scan/V|
|00000010| 47 41 0d 00 14 04 0d 00 | 1e 2c f4 20 4d 75 6c 74 |GA......|.,. Mult|
|00000020| 69 73 79 6e 63 2f 56 47 | 41 20 73 63 72 65 65 6e |isync/VG|A screen|
|00000030| 20 64 69 73 70 6c 61 79 | 20 65 6d 75 6c 61 74 6f | display| emulato|
|00000040| 72 2e 0d 00 28 04 0d 00 | 32 20 f4 20 28 43 29 20 |r...(...|2 . (C) |
|00000050| 52 69 63 68 61 72 64 20 | 41 76 65 72 69 6c 6c 2c |Richard |Averill,|
|00000060| 20 31 39 38 39 2e 0d 00 | 3c 04 0d 00 46 45 f4 20 | 1989...|<...FE. |
|00000070| 54 68 69 73 20 70 72 6f | 67 72 61 6d 20 77 69 6c |This pro|gram wil|
|00000080| 6c 20 64 69 73 70 6c 61 | 79 20 61 6e 79 20 41 72 |l displa|y any Ar|
|00000090| 63 68 69 6d 65 64 65 73 | 20 4d 75 6c 74 69 73 79 |chimedes| Multisy|
|000000a0| 6e 63 2f 56 47 41 20 69 | 6d 61 67 65 20 69 6e 0d |nc/VGA i|mage in.|
|000000b0| 00 50 39 f4 20 69 6e 74 | 65 72 6c 61 63 65 64 20 |.P9. int|erlaced |
|000000c0| 73 74 61 6e 64 61 72 64 | 20 72 65 73 6f 6c 75 74 |standard| resolut|
|000000d0| 69 6f 6e 20 6d 6f 64 65 | 73 20 30 2c 38 2c 31 32 |ion mode|s 0,8,12|
|000000e0| 2c 20 6f 72 20 31 35 2e | 0d 00 5a 04 0d 00 64 0e |, or 15.|..Z...d.|
|000000f0| 4f 53 5f 42 79 74 65 25 | 3d 36 0d 00 6e 17 e7 20 |OS_Byte%|=6..n.. |
|00000100| eb 3c 31 38 20 8c 20 eb | 20 30 20 8b 20 eb 20 31 |.<18 . .| 0 . . 1|
|00000110| 38 0d 00 78 04 0d 00 82 | 42 f1 20 22 4d 75 6c 74 |8..x....|B. "Mult|
|00000120| 69 73 79 6e 63 2f 56 47 | 41 20 73 63 72 65 65 6e |isync/VG|A screen|
|00000130| 20 64 69 73 70 6c 61 79 | 20 3a 20 28 43 29 20 52 | display| : (C) R|
|00000140| 69 63 68 61 72 64 20 41 | 76 65 72 69 6c 6c 2c 20 |ichard A|verill, |
|00000150| 31 39 38 39 2e 22 27 0d | 00 83 19 f1 22 54 72 79 |1989."'.|...."Try|
|00000160| 3a 20 27 6d 61 6e 64 73 | 63 72 5f 32 31 27 22 27 |: 'mands|cr_21'"'|
|00000170| 0d 00 8c 04 0d 00 96 32 | e8 20 22 48 69 2d 72 65 |.......2|. "Hi-re|
|00000180| 73 6f 6c 75 74 69 6f 6e | 20 69 6d 61 67 65 20 66 |solution| image f|
|00000190| 69 6c 65 6e 61 6d 65 20 | 3a 20 22 20 73 74 72 5f |ilename |: " str_|
|000001a0| 69 6d 61 67 65 24 0d 00 | a0 04 0d 00 aa 45 c8 99 |image$..|.....E..|
|000001b0| 20 22 4f 53 5f 46 69 6c | 65 22 2c 26 30 35 2c 73 | "OS_Fil|e",&05,s|
|000001c0| 74 72 5f 69 6d 61 67 65 | 24 20 b8 20 6f 62 6a 5f |tr_image|$ . obj_|
|000001d0| 69 6d 61 67 65 25 2c 2c | 74 79 70 65 5f 69 6d 61 |image%,,|type_ima|
|000001e0| 67 65 25 2c 2c 6c 65 6e | 5f 69 6d 61 67 65 25 0d |ge%,,len|_image%.|
|000001f0| 00 b4 36 e7 20 6f 62 6a | 5f 69 6d 61 67 65 25 3c |..6. obj|_image%<|
|00000200| 3e 31 20 8c 20 f1 20 73 | 74 72 5f 69 6d 61 67 65 |>1 . . s|tr_image|
|00000210| 24 3b 22 20 69 73 20 6e | 6f 74 20 61 20 66 69 6c |$;" is n|ot a fil|
|00000220| 65 21 22 3a e0 0d 00 be | 4e e7 20 28 74 79 70 65 |e!":....|N. (type|
|00000230| 5f 69 6d 61 67 65 25 20 | 80 20 26 46 46 46 30 30 |_image% |. &FFF00|
|00000240| 29 3c 3e 26 46 46 39 30 | 30 20 8c 20 f1 20 73 74 |)<>&FF90|0 . . st|
|00000250| 72 5f 69 6d 61 67 65 24 | 3b 22 20 69 73 20 6e 6f |r_image$|;" is no|
|00000260| 74 20 61 6e 20 69 6d 61 | 67 65 20 66 69 6c 65 21 |t an ima|ge file!|
|00000270| 22 3a e0 0d 00 c8 04 0d | 00 d2 2e de 20 70 74 72 |":......|.... ptr|
|00000280| 5f 69 6d 61 67 65 25 20 | 6c 65 6e 5f 69 6d 61 67 |_image% |len_imag|
|00000290| 65 25 2b 34 2c 20 70 74 | 72 5f 76 64 75 76 61 72 |e%+4, pt|r_vduvar|
|000002a0| 73 25 20 31 36 0d 00 dc | 1b 61 72 65 61 5f 63 62 |s% 16...|.area_cb|
|000002b0| 6c 6f 63 6b 25 3d 70 74 | 72 5f 69 6d 61 67 65 25 |lock%=pt|r_image%|
|000002c0| 0d 00 e6 04 0d 00 f0 4f | f1 20 27 22 49 6e 20 63 |.......O|. '"In c|
|000002d0| 61 73 65 20 6f 66 20 6d | 69 73 2d 61 6c 69 67 6e |ase of m|is-align|
|000002e0| 6d 65 6e 74 2c 20 70 72 | 65 73 73 20 3c 73 70 61 |ment, pr|ess <spa|
|000002f0| 63 65 3e 20 74 6f 20 72 | 65 2d 67 65 6e 65 72 61 |ce> to r|e-genera|
|00000300| 74 65 20 73 63 72 65 65 | 6e 20 64 69 73 70 6c 61 |te scree|n displa|
|00000310| 79 2e 22 0d 00 fa 1e 21 | 61 72 65 61 5f 63 62 6c |y."....!|area_cbl|
|00000320| 6f 63 6b 25 3d 6c 65 6e | 5f 69 6d 61 67 65 25 2b |ock%=len|_image%+|
|00000330| 34 0d 01 04 2f c8 99 20 | 22 4f 53 5f 53 70 72 69 |4.../.. |"OS_Spri|
|00000340| 74 65 4f 70 22 2c 26 31 | 30 41 2c 70 74 72 5f 69 |teOp",&1|0A,ptr_i|
|00000350| 6d 61 67 65 25 2c 73 74 | 72 5f 69 6d 61 67 65 24 |mage%,st|r_image$|
|00000360| 0d 01 0e 04 0d 01 18 21 | 73 70 72 69 74 65 5f 6e |.......!|sprite_n|
|00000370| 75 6d 62 65 72 25 3d 61 | 72 65 61 5f 63 62 6c 6f |umber%=a|rea_cblo|
|00000380| 63 6b 25 21 34 0d 01 22 | 40 e7 20 73 70 72 69 74 |ck%!4.."|@. sprit|
|00000390| 65 5f 6e 75 6d 62 65 72 | 25 3d 30 20 8c 20 f1 20 |e_number|%=0 . . |
|000003a0| 22 54 68 65 72 65 20 61 | 72 65 20 6e 6f 20 69 6d |"There a|re no im|
|000003b0| 61 67 65 73 20 69 6e 20 | 74 68 69 73 20 66 69 6c |ages in |this fil|
|000003c0| 65 21 22 3a e0 0d 01 2c | 04 0d 01 36 30 73 70 72 |e!":...,|...60spr|
|000003d0| 69 74 65 5f 63 62 6c 6f | 63 6b 25 3d 28 61 72 65 |ite_cblo|ck%=(are|
|000003e0| 61 5f 63 62 6c 6f 63 6b | 25 21 38 29 2b 61 72 65 |a_cblock|%!8)+are|
|000003f0| 61 5f 63 62 6c 6f 63 6b | 25 0d 01 40 04 0d 01 4a |a_cblock|%..@...J|
|00000400| 22 73 70 72 69 74 65 5f | 6d 6f 64 65 25 3d 73 70 |"sprite_|mode%=sp|
|00000410| 72 69 74 65 5f 63 62 6c | 6f 63 6b 25 21 34 30 0d |rite_cbl|ock%!40.|
|00000420| 01 54 48 e7 20 73 70 72 | 69 74 65 5f 6d 6f 64 65 |.TH. spr|ite_mode|
|00000430| 25 3c 31 38 20 84 20 73 | 70 72 69 74 65 5f 6d 6f |%<18 . s|prite_mo|
|00000440| 64 65 25 3e 32 31 20 8c | 20 f1 20 22 69 6d 61 67 |de%>21 .| . "imag|
|00000450| 65 20 69 73 20 6e 6f 74 | 20 4d 75 6c 74 69 2d 53 |e is not| Multi-S|
|00000460| 79 6e 63 21 22 3a e0 0d | 01 5e 04 0d 01 68 15 c8 |ync!":..|.^...h..|
|00000470| 8e 20 73 70 72 69 74 65 | 5f 6d 6f 64 65 25 20 ca |. sprite|_mode% .|
|00000480| 0d 01 72 1c c9 20 31 38 | 2c 32 35 20 3a 20 70 73 |..r.. 18|,25 : ps|
|00000490| 65 75 64 6f 5f 6d 6f 64 | 65 25 3d 30 0d 01 7c 1c |eudo_mod|e%=0..|.|
|000004a0| c9 20 31 39 2c 32 36 20 | 3a 20 70 73 65 75 64 6f |. 19,26 |: pseudo|
|000004b0| 5f 6d 6f 64 65 25 3d 38 | 0d 01 86 1d c9 20 32 30 |_mode%=8|..... 20|
|000004c0| 2c 32 37 20 3a 20 70 73 | 65 75 64 6f 5f 6d 6f 64 |,27 : ps|eudo_mod|
|000004d0| 65 25 3d 31 32 0d 01 90 | 1d c9 20 32 31 2c 32 38 |e%=12...|.. 21,28|
|000004e0| 20 3a 20 70 73 65 75 64 | 6f 5f 6d 6f 64 65 25 3d | : pseud|o_mode%=|
|000004f0| 31 35 0d 01 9a 05 7f 0d | 01 a4 1f f1 20 22 43 61 |15......|.... "Ca|
|00000500| 6e 6e 6f 74 20 65 6d 75 | 6c 61 74 65 20 69 6d 61 |nnot emu|late ima|
|00000510| 67 65 21 22 3a e0 0d 01 | ae 05 cb 0d 01 b8 04 0d |ge!":...|........|
|00000520| 01 c2 27 73 70 72 69 74 | 65 5f 77 69 64 74 68 25 |..'sprit|e_width%|
|00000530| 3d 28 73 70 72 69 74 65 | 5f 63 62 6c 6f 63 6b 25 |=(sprite|_cblock%|
|00000540| 21 31 36 29 2b 31 0d 01 | cc 28 73 70 72 69 74 65 |!16)+1..|.(sprite|
|00000550| 5f 68 65 69 67 68 74 25 | 3d 28 73 70 72 69 74 65 |_height%|=(sprite|
|00000560| 5f 63 62 6c 6f 63 6b 25 | 21 32 30 29 2b 31 0d 01 |_cblock%|!20)+1..|
|00000570| d6 24 73 70 72 69 74 65 | 5f 73 63 61 6e 6c 69 6e |.$sprite|_scanlin|
|00000580| 65 25 3d 73 70 72 69 74 | 65 5f 77 69 64 74 68 25 |e%=sprit|e_width%|
|00000590| 2a 34 0d 01 e0 34 73 70 | 72 69 74 65 5f 69 6d 61 |*4...4sp|rite_ima|
|000005a0| 67 65 25 3d 28 73 70 72 | 69 74 65 5f 63 62 6c 6f |ge%=(spr|ite_cblo|
|000005b0| 63 6b 25 21 33 32 29 2b | 73 70 72 69 74 65 5f 63 |ck%!32)+|sprite_c|
|000005c0| 62 6c 6f 63 6b 25 0d 01 | ea 30 73 70 72 69 74 65 |block%..|.0sprite|
|000005d0| 5f 73 69 7a 65 25 3d 73 | 70 72 69 74 65 5f 73 63 |_size%=s|prite_sc|
|000005e0| 61 6e 6c 69 6e 65 25 2a | 73 70 72 69 74 65 5f 68 |anline%*|sprite_h|
|000005f0| 65 69 67 68 74 25 0d 01 | f4 04 0d 01 fe 40 c8 99 |eight%..|.....@..|
|00000600| 20 22 4f 53 5f 52 65 61 | 64 4d 6f 64 65 56 61 72 | "OS_Rea|dModeVar|
|00000610| 69 61 62 6c 65 22 2c 70 | 73 65 75 64 6f 5f 6d 6f |iable",p|seudo_mo|
|00000620| 64 65 25 2c 36 20 b8 20 | 2c 2c 73 63 72 65 65 6e |de%,6 . |,,screen|
|00000630| 5f 73 63 61 6e 6c 69 6e | 65 25 0d 02 08 04 0d 02 |_scanlin|e%......|
|00000640| 12 17 de 20 70 74 72 5f | 62 6c 69 74 69 6d 61 67 |... ptr_|blitimag|
|00000650| 65 25 20 38 30 0d 02 1c | 04 0d 02 26 15 e3 20 6f |e% 80...|...&.. o|
|00000660| 70 74 25 3d 38 20 b8 20 | 31 30 20 88 20 32 0d 02 |pt%=8 . |10 . 2..|
|00000670| 30 15 50 25 3d 70 74 72 | 5f 62 6c 69 74 69 6d 61 |0.P%=ptr|_blitima|
|00000680| 67 65 25 0d 02 3a 18 4c | 25 3d 70 74 72 5f 62 6c |ge%..:.L|%=ptr_bl|
|00000690| 69 74 69 6d 61 67 65 25 | 2b 38 30 0d 02 44 0e 5b |itimage%|+80..D.[|
|000006a0| 20 6f 70 74 20 6f 70 74 | 25 0d 02 4e 04 0d 02 58 | opt opt|%..N...X|
|000006b0| 16 3b 72 30 3d 73 74 61 | 72 74 20 6f 66 20 69 6d |.;r0=sta|rt of im|
|000006c0| 61 67 65 0d 02 62 14 3b | 72 31 3d 65 6e 64 20 6f |age..b.;|r1=end o|
|000006d0| 66 20 69 6d 61 67 65 0d | 02 6c 17 3b 72 32 3d 73 |f image.|.l.;r2=s|
|000006e0| 74 61 72 74 20 6f 66 20 | 73 63 72 65 65 6e 0d 02 |tart of |screen..|
|000006f0| 76 21 3b 72 33 3d 6c 65 | 6e 67 74 68 20 6f 66 20 |v!;r3=le|ngth of |
|00000700| 6f 6e 65 20 73 63 72 65 | 65 6e 20 6c 69 6e 65 0d |one scre|en line.|
|00000710| 02 80 20 3b 72 34 3d 6c | 65 6e 67 74 68 20 6f 66 |.. ;r4=l|ength of|
|00000720| 20 6f 6e 65 20 69 6d 61 | 67 65 20 6c 69 6e 65 0d | one ima|ge line.|
|00000730| 02 8a 04 0d 02 94 11 2e | 70 74 72 5f 6c 69 6e 65 |........|ptr_line|
|00000740| 6c 6f 6f 70 0d 02 9e 30 | 6d 6f 76 20 72 37 2c 20 |loop...0|mov r7, |
|00000750| 72 30 20 20 20 20 20 20 | 20 20 20 3b 20 72 37 3d |r0      |   ; r7=|
|00000760| 73 74 61 72 74 20 6f 66 | 20 73 70 72 69 74 65 20 |start of| sprite |
|00000770| 6c 69 6e 65 0d 02 a8 2e | 61 64 64 20 72 38 2c 20 |line....|add r8, |
|00000780| 72 37 2c 20 72 34 20 20 | 20 20 20 3b 20 72 38 3d |r7, r4  |   ; r8=|
|00000790| 65 6e 64 20 6f 66 20 73 | 70 72 69 74 65 20 6c 69 |end of s|prite li|
|000007a0| 6e 65 0d 02 b2 30 6d 6f | 76 20 72 39 2c 20 72 32 |ne...0mo|v r9, r2|
|000007b0| 20 20 20 20 20 20 20 20 | 20 3b 20 72 39 3d 73 74 |        | ; r9=st|
|000007c0| 61 72 74 20 6f 66 20 73 | 63 72 65 65 6e 20 6c 69 |art of s|creen li|
|000007d0| 6e 65 0d 02 bc 04 0d 02 | c6 11 2e 70 74 72 5f 63 |ne......|...ptr_c|
|000007e0| 6f 70 79 77 6f 72 64 0d | 02 d0 33 6c 64 72 20 72 |opyword.|..3ldr r|
|000007f0| 36 2c 20 5b 72 37 5d 2c | 20 23 34 20 20 20 3b 20 |6, [r7],| #4   ; |
|00000800| 67 65 74 20 77 6f 72 64 | 20 66 72 6f 6d 20 6c 69 |get word| from li|
|00000810| 6e 65 20 70 6f 69 6e 74 | 65 72 0d 02 da 33 73 74 |ne point|er...3st|
|00000820| 72 20 72 36 2c 20 5b 72 | 39 5d 2c 20 23 34 20 20 |r r6, [r|9], #4  |
|00000830| 20 3b 20 70 75 74 20 77 | 6f 72 64 20 74 6f 20 73 | ; put w|ord to s|
|00000840| 63 72 65 65 6e 20 70 6f | 69 6e 74 65 72 0d 02 e4 |creen po|inter...|
|00000850| 34 63 6d 70 20 72 37 2c | 20 72 38 20 20 20 20 20 |4cmp r7,| r8     |
|00000860| 20 20 20 20 3b 20 70 6f | 69 6e 74 65 72 3d 65 6e |    ; po|inter=en|
|00000870| 64 20 6f 66 20 73 70 72 | 69 74 65 20 6c 69 6e 65 |d of spr|ite line|
|00000880| 3f 0d 02 ee 14 62 6c 74 | 20 70 74 72 5f 63 6f 70 |?....blt| ptr_cop|
|00000890| 79 77 6f 72 64 0d 02 f8 | 04 0d 03 02 2f 61 64 64 |yword...|..../add|
|000008a0| 20 72 32 2c 20 72 32 2c | 20 72 33 20 20 20 20 20 | r2, r2,| r3     |
|000008b0| 3b 20 6e 65 78 74 20 73 | 63 72 65 65 6e 20 6c 69 |; next s|creen li|
|000008c0| 6e 65 20 69 6e 20 72 32 | 0d 03 0c 37 61 64 64 20 |ne in r2|...7add |
|000008d0| 72 30 2c 20 72 30 2c 20 | 72 34 2c 20 6c 73 6c 20 |r0, r0, |r4, lsl |
|000008e0| 23 31 20 3b 20 6a 75 6d | 70 20 6f 76 65 72 20 6e |#1 ; jum|p over n|
|000008f0| 65 78 74 20 73 70 72 69 | 74 65 20 6c 69 6e 65 0d |ext spri|te line.|
|00000900| 03 16 27 63 6d 70 20 72 | 30 2c 20 72 31 20 20 20 |..'cmp r|0, r1   |
|00000910| 20 20 20 20 20 20 3b 20 | 65 6e 64 20 6f 66 20 73 |      ; |end of s|
|00000920| 70 72 69 74 65 3f 0d 03 | 20 14 62 6c 65 20 70 74 |prite?..| .ble pt|
|00000930| 72 5f 6c 69 6e 65 6c 6f | 6f 70 0d 03 2a 04 0d 03 |r_linelo|op..*...|
|00000940| 34 0f 6d 6f 76 20 70 63 | 2c 20 72 31 34 0d 03 3e |4.mov pc|, r14..>|
|00000950| 05 5d 0d 03 48 0a ed 20 | 6f 70 74 25 0d 03 52 04 |.]..H.. |opt%..R.|
|00000960| 0d 03 5c 05 f5 0d 03 66 | 06 c8 96 0d 03 70 06 c8 |..\....f|.....p..|
|00000970| 96 0d 03 7a 15 c8 99 20 | 4f 53 5f 42 79 74 65 25 |...z... |OS_Byte%|
|00000980| 2c 26 37 32 2c 32 0d 03 | 84 17 c8 99 20 4f 53 5f |,&72,2..|.... OS_|
|00000990| 42 79 74 65 25 2c 26 39 | 30 2c 30 2c 30 0d 03 8e |Byte%,&9|0,0,0...|
|000009a0| 07 d1 3d 30 0d 03 98 18 | eb 20 31 32 38 2b 70 73 |..=0....|. 128+ps|
|000009b0| 65 75 64 6f 5f 6d 6f 64 | 65 25 3a 87 0d 03 a2 04 |eudo_mod|e%:.....|
|000009c0| 0d 03 ac 27 e7 20 73 70 | 72 69 74 65 5f 69 6d 61 |...'. sp|rite_ima|
|000009d0| 67 65 25 3e 73 70 72 69 | 74 65 5f 63 62 6c 6f 63 |ge%>spri|te_cbloc|
|000009e0| 6b 25 2b 34 34 20 8c 0d | 03 b6 19 e3 20 63 6f 6c |k%+44 ..|.... col|
|000009f0| 6f 75 72 25 3d 31 35 20 | b8 20 30 20 88 20 2d 31 |our%=15 |. 0 . -1|
|00000a00| 0d 03 c0 26 72 67 62 25 | 3d 73 70 72 69 74 65 5f |...&rgb%|=sprite_|
|00000a10| 63 62 6c 6f 63 6b 25 2b | 34 34 2b 28 63 6f 6c 6f |cblock%+|44+(colo|
|00000a20| 75 72 25 2a 38 29 0d 03 | ca 22 fb 20 63 6f 6c 6f |ur%*8)..|.". colo|
|00000a30| 75 72 25 2c 72 67 62 25 | 3f 31 2c 72 67 62 25 3f |ur%,rgb%|?1,rgb%?|
|00000a40| 32 2c 72 67 62 25 3f 33 | 0d 03 d4 05 ed 0d 03 de |2,rgb%?3|........|
|00000a50| 05 cd 0d 03 e8 04 0d 03 | f2 45 ee 20 85 20 c8 99 |........|.E. . ..|
|00000a60| 20 4f 53 5f 42 79 74 65 | 25 2c 26 39 30 2c 30 2c | OS_Byte|%,&90,0,|
|00000a70| 31 3a eb 20 eb 3a f1 20 | f6 24 20 22 20 28 69 6e |1:. .:. |.$ " (in|
|00000a80| 74 65 72 6e 61 6c 20 65 | 72 72 6f 72 20 63 6f 64 |ternal e|rror cod|
|00000a90| 65 20 22 3b 9e 3b 22 29 | 22 3a e0 0d 03 fc 04 0d |e ";.;")|":......|
|00000aa0| 04 06 11 e3 20 62 61 6e | 6b 25 3d 31 20 b8 20 32 |.... ban|k%=1 . 2|
|00000ab0| 0d 04 10 1a c8 99 20 22 | 4f 53 5f 42 79 74 65 22 |...... "|OS_Byte"|
|00000ac0| 2c 31 31 32 2c 62 61 6e | 6b 25 0d 04 1a 1a c8 99 |,112,ban|k%......|
|00000ad0| 20 22 4f 53 5f 42 79 74 | 65 22 2c 31 31 33 2c 62 | "OS_Byt|e",113,b|
|00000ae0| 61 6e 6b 25 0d 04 24 05 | db 0d 04 2e 20 62 61 6e |ank%..$.|.... ban|
|00000af0| 6b 5f 61 64 64 72 25 3d | a4 72 65 61 64 5f 73 63 |k_addr%=|.read_sc|
|00000b00| 72 65 65 6e 73 74 61 72 | 74 0d 04 38 31 41 25 3d |reenstar|t..81A%=|
|00000b10| 73 70 72 69 74 65 5f 69 | 6d 61 67 65 25 2b 28 28 |sprite_i|mage%+((|
|00000b20| 62 61 6e 6b 25 2d 31 29 | 2a 73 70 72 69 74 65 5f |bank%-1)|*sprite_|
|00000b30| 73 63 61 6e 6c 69 6e 65 | 25 29 0d 04 42 3e 42 25 |scanline|%)..B>B%|
|00000b40| 3d 73 70 72 69 74 65 5f | 69 6d 61 67 65 25 2b 73 |=sprite_|image%+s|
|00000b50| 70 72 69 74 65 5f 73 69 | 7a 65 25 2d 28 28 32 2d |prite_si|ze%-((2-|
|00000b60| 62 61 6e 6b 25 29 2a 73 | 70 72 69 74 65 5f 73 63 |bank%)*s|prite_sc|
|00000b70| 61 6e 6c 69 6e 65 25 29 | 0d 04 4c 11 43 25 3d 62 |anline%)|..L.C%=b|
|00000b80| 61 6e 6b 5f 61 64 64 72 | 25 0d 04 56 17 44 25 3d |ank_addr|%..V.D%=|
|00000b90| 73 63 72 65 65 6e 5f 73 | 63 61 6e 6c 69 6e 65 25 |screen_s|canline%|
|00000ba0| 0d 04 60 17 45 25 3d 73 | 70 72 69 74 65 5f 73 63 |..`.E%=s|prite_sc|
|00000bb0| 61 6e 6c 69 6e 65 25 0d | 04 6a 1d f1 20 27 22 43 |anline%.|.j.. '"C|
|00000bc0| 6f 70 79 69 6e 67 20 62 | 61 6e 6b 20 22 3b 62 61 |opying b|ank ";ba|
|00000bd0| 6e 6b 25 27 0d 04 74 14 | d6 20 70 74 72 5f 62 6c |nk%'..t.|. ptr_bl|
|00000be0| 69 74 69 6d 61 67 65 25 | 0d 04 7e 05 ed 0d 04 88 |itimage%|..~.....|
|00000bf0| 04 0d 04 92 18 62 61 6e | 6b 25 3d 28 28 91 20 81 |.....ban|k%=((. .|
|00000c00| 20 32 29 83 20 32 29 2b | 31 0d 04 9c 05 f5 0d 04 | 2). 2)+|1.......|
|00000c10| a6 06 c8 96 0d 04 b0 19 | c8 99 20 4f 53 5f 42 79 |........|.. OS_By|
|00000c20| 74 65 25 2c 31 31 33 2c | 62 61 6e 6b 25 0d 04 ba |te%,113,|bank%...|
|00000c30| 06 c8 96 0d 04 c4 1b c8 | 99 20 4f 53 5f 42 79 74 |........|. OS_Byt|
|00000c40| 65 25 2c 31 31 33 2c 33 | 2d 62 61 6e 6b 25 0d 04 |e%,113,3|-bank%..|
|00000c50| ce 0a fd 20 a6 2d 39 39 | 0d 04 d8 15 c8 99 20 22 |... .-99|...... "|
|00000c60| 4f 53 5f 42 79 74 65 22 | 2c 32 31 2c 30 0d 04 e2 |OS_Byte"|,21,0...|
|00000c70| 07 fd 20 a3 0d 04 ec 05 | e0 0d 04 f6 04 0d 05 00 |.. .....|........|
|00000c80| 17 dd 20 a4 72 65 61 64 | 5f 73 63 72 65 65 6e 73 |.. .read|_screens|
|00000c90| 74 61 72 74 0d 05 0a 15 | 21 70 74 72 5f 76 64 75 |tart....|!ptr_vdu|
|00000ca0| 76 61 72 73 25 3d 31 34 | 38 0d 05 14 15 70 74 72 |vars%=14|8....ptr|
|00000cb0| 5f 76 64 75 76 61 72 73 | 25 21 34 3d 2d 31 0d 05 |_vduvars|%!4=-1..|
|00000cc0| 1e 38 c8 99 20 22 4f 53 | 5f 52 65 61 64 56 64 75 |.8.. "OS|_ReadVdu|
|00000cd0| 56 61 72 69 61 62 6c 65 | 73 22 2c 70 74 72 5f 76 |Variable|s",ptr_v|
|00000ce0| 64 75 76 61 72 73 25 2c | 70 74 72 5f 76 64 75 76 |duvars%,|ptr_vduv|
|00000cf0| 61 72 73 25 2b 38 0d 05 | 28 13 3d 70 74 72 5f 76 |ars%+8..|(.=ptr_v|
|00000d00| 64 75 76 61 72 73 25 21 | 38 0d ff                |duvars%!|8..     |
+--------+-------------------------+-------------------------+--------+--------+